home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / SMITHCHT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-11-01  |  1.8 KB  |  75 lines
  1. 10  'SMITHCHT - Smith Chart reference - 01 MAY 96 rev.02 NOV 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  IF PROG$=""THEN GO$=EX$ ELSE GO$=PROG$
  4. 40  PROG$="smithcht"
  5. 50  COMMON EX$,PROG$
  6. 60  CLS:KEY OFF
  7. 70  COLOR 7,0,1
  8. 80  UL$=STRING$(80,205)
  9. 90  DIM A$(26,2)
  10. 100  FOR Z=1 TO 26:READ A$(Z,2),A$(Z,1):NEXT Z
  11. 110  '
  12. 120  '.....start
  13. 130  CLS
  14. 140  COLOR 15,2
  15. 150  PRINT " SMITH CHART CALCULATIONS";TAB(57)"by George Murphy VE3ERP ";
  16. 160  COLOR 1,0:PRINT STRING$(80,223);
  17. 170  COLOR 7,0
  18. 180  T=7
  19. 190  PRINT TAB(T);
  20. 200  PRINT "The following HAMCALC programs may be useful for calculating data"
  21. 210  PRINT TAB(T);
  22. 220  PRINT "that you might otherwise seek using a Smith Chart."
  23. 230  PRINT
  24. 240  PRINT TAB(T);
  25. 250  PRINT CHR$(34);"MicroSmith";CHR$(34);", a comprehensive Smith Chart ";
  26. 260  PRINT "graphics and tabular"
  27. 270  PRINT TAB(T);
  28. 280  PRINT "software program by Wes Haywood, W7ZOI, is available from the ARRL."
  29. 290  PRINT UL$;
  30. 300  PRINT " Press a letter in ( ) to select a program"
  31. 310  PRINT UL$;
  32. 320  LN=CSRLIN-1
  33. 330  FOR Z=1 TO 26
  34. 340  IF Z=14 THEN LN=LN-13
  35. 350  LN=LN+1
  36. 360  IF Z>13 THEN LOCATE LN,42 ELSE LOCATE LN,2
  37. 370  PRINT "(";CHR$(Z+ 96);")  ";A$(Z,1);
  38. 380  NEXT Z
  39. 390  PRINT ""
  40. 400  Z$=INKEY$:IF Z$=""THEN 400
  41. 410  Z=ASC(Z$)-96
  42. 420  IF Z<1 OR Z>26 THEN 400
  43. 430  IF A$(Z,1)="-"THEN 400
  44. 440  IF A$(Z,2)="zzz"THEN A$(Z,2)=EX$
  45. 450  CLS:CHAIN A$(Z,2)
  46. 460  END
  47. 470  '
  48. 480  '.....database
  49. 490  DATA antfield, Antenna Field Strength
  50. 500  DATA coaxchar, Coaxial Cable Characteristics
  51. 510  DATA conjumat, Conjugate Match Calculator
  52. 520  DATA hairpin,  Hairpin Match for Yagis
  53. 530  DATA serisect, Series-Section Balun Transformer
  54. 540  DATA stubant,  Stub Match for Antennas
  55. 550  DATA swr,      SWR Calculator
  56. 560  DATA transmat, Transmatch Design
  57. 570  DATA elecleng, Transmission Line Length
  58. 580  DATA lineloss, Transmission Line Losses
  59. 590  DATA tranline, Transmission Line Performance
  60. 600  DATA transtub, Transmission Line Stubs
  61. 610  DATA xmtrzmat, Xmtr Transistor Stage Coupling
  62. 620  DATA "","-"
  63. 630  DATA "","-"
  64. 640  DATA "","-"
  65. 650  DATA "","-"
  66. 660  DATA "","-"
  67. 670  DATA "","-"
  68. 680  DATA "","-"
  69. 690  DATA "","-"
  70. 700  DATA "","-"
  71. 710  DATA "","-"
  72. 720  DATA "","-"
  73. 730  DATA "","-"
  74. 740  DATA zzz,      EXIT
  75.